home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gigarom 1
/
Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso
/
FILES
/
BBS
/
SECOND_SIGHT
/
Password Surveys(SS).cpt
/
Password Restriction
/
Restrict Surv
< prev
Wrap
Text File
|
1992-07-16
|
2KB
|
145 lines
** opening text ********************************************
opening text1
1
!!!!! STOP STOP STOP !!!!!
0
nil
** blank line
blankline
1
0
nil
** opening text ********************************************
opening text2
1
This is a * RESTRICTED AREA * for authorized BBS members only.
0
nil
** opening text ********************************************
opening text3
1
DO NOT ATTEMPT ACCESS if you do not know the password. We warn you !!
0
nil
** blank line
blankline
1
0
nil
** continue
continue
10
Are you absolutely sure you wish to continue (Y/N)?
nil
nil
** test for no if it is kick them out to exit
no
3
N
nil
exit
** blank line
blankline
1
nil
nil
** get password1 You can change the length of the password
password1
9
Enter the secret password (1st try):
10
nil
** check1 Password should be all CAPS if right they get out ok
check1
3
PASSWORD
nil
gotit
** get password2 2nd try if right they get out ok
password2
9
Enter the secret password (2nd try):
10
nil
** check2
check2
3
PASSWORD
nil
gotit
** get password3 3rd try if right they get out ok
password3
9
Enter the secret password (last try):
10
nil
** check3
check3
3
PASSWORD
nil
gotit
** blank line
blankline
1
nil
nil
** trouble notice the user blew it or was fooling around.
INTROUBLE1
1
Uh oh, you either didn't know the password or you messed up.
0
nil
** trouble notice ******************************************
INTROUBLE2
1
The Sysop will be notified. YOU WERE WARNED !!!!!!!!
0
nil
** blank line
blankline
1
nil
nil
** lower access give them the lowest access
access
17
nil
0
nil
** lower time give them only 3 minutes
time
15
nil
3
nil
** notify sysop that this user blew it
notify
13
A user bit the dust.
nil
nil
** write it to a .res file
writeit
6
nil
nil
nil
** exit the survey
exit
7
nil
nil
nil
** got it right so branch to the proper menu
gotit
18
HD:BBS:FILES menu
Nil
Nil